home *** CD-ROM | disk | FTP | other *** search
/ Video Toaster 4.2 / Video Toaster v4.2.iso / arexx / editor / import.rexx < prev    next >
OS/2 REXX Batch file  |  1995-12-22  |  1KB  |  49 lines
  1. /* Import.rexx V2.0 -- Import Universal Graphics */
  2. /* By Bob Caron © 1995 NewTek Inc.               */
  3. /* Hakuna Matata!!!!!                            */
  4.  
  5. OPTIONS RESULTS
  6.  
  7. call remlib('ToasterARexx.port')
  8. call remlib('PROJECT_REXX_PORT')
  9.  
  10. call addlib('PROJECT_REXX_PORT' , 0)
  11. call ADDLIB('ToasterARexx.port' , 0)
  12.  
  13. address command "C:assign hiip: toaster:programs/hiip_support"
  14.  
  15. call req_error("Import Universal V2.0     ---    Load various file format images to DV1 using HIIP.")
  16.  
  17. rx startfilereq("Select Graphic To Display","","")
  18.  
  19. exit=1
  20. do while exit=1
  21.   filename=queryfilereq()
  22.   if filename=0 then call quit
  23.   if filename~="" then exit=0
  24.   address command "c:wait 1"
  25. end
  26.  
  27. call req_close()
  28. call req_open("Processing... Please Wait.")
  29. address command "C:gnusto "||'"'||filename||'"'||" T:temp image saver iff sy "||value(0)||" sx "||value(752)||" sn bestup"
  30. Switcher(MDV1)
  31. call req_close()
  32. if ~exists("t:temp") then do
  33.   call req_tell("Error!","        I can't convert that.")
  34.   call quit
  35.   end
  36.  
  37. Switcher(LRGB,"t:temp",0)
  38. call req_error("All done.")
  39. call remlib('ToasterARexx.port')
  40. call remlib('PROJECT_REXX_PORT')
  41.  
  42. exit
  43.  
  44. quit:
  45.    call req_error("Canceled.")
  46.    call remlib('ToasterARexx.port')
  47.    call remlib('PROJECT_REXX_PORT')
  48.    exit
  49.